Ì i 2
main
[version,code]
*(DRG)DRB[djc,drb]
Field Name Len Dat Typ J DPM Offset/Local/VAL
version 10 FREE L ABS.VERSION djc
code 7 FREE L drb
active 1 YN L *(DRG)DRB[djc,drb]|0
attribute 4 FREE L
attributes 10 FREE L *(DRG)DRB[djc,drb]|8
can.dx.type 1 CHOICE L *(DRG)DRB[djc,drb]|9
comp.comorb 1 YN L *(DRG)DRB[djc,drb]|3
confidential.data 1 YN L *(DRG)DRB[djc,drb]CF
descriptor.only 1 YN L *(DRG)DRB[djc,drb]|2
female.dxcat 2 PINT R *(DRG)DRB[djc,drb]|7
female.mdc 2 FREE L ABS.MDC *(DRG)DRB[djc,drb]|6
last.user 10 FREE L MIS.USER *(DRG)DRB[djc,drb]USR
male.dxcat 2 PINT R *(DRG)DRB[djc,drb]|5
male.mdc 2 FREE L ABS.MDC *(DRG)DRB[djc,drb]|4
name 60 FREE L *(DRG)DRB[djc,drb]|1
name.50 50 FREE L VAL=(@ABS.DIAG.name$50)
name.real 60 FREE L VAL=@name$L(@name,"* DO NOT USE *"):"S"
Ì € i 2
alt.desc.grps
[version,code, alt.desc.grp]
*(DRG)DRB[djc,drb]N[drh]
Field Name Len Dat Typ J DPM Offset/Local/VAL
alt.desc.grp 15 FREE L ABS.ALT.DESCGRPdrh
alt.desc.grp.name 60 FREE L *(DRG)DRB[djc,drb]N[drh]|0
alt.desc.grp.name.50 50 FREE L VAL=@alt.desc.grp.name$50
Ì € i 2
can.long.desc
[version,code, descr.line.no]
*(DRG)DRB[djc,drb]D[drbCD]
Field Name Len Dat Typ J DPM Offset/Local/VAL
descr.line.no 1 PINT R drbCD
descr.line.text 60 TEXT L *(DRG)DRB[djc,drb]D[drbCD]
Ì € i 2
screen.edits
[version,code, screen.edit]
*(DRG)DRB[djc,drb]SE[dje]
Field Name Len Dat Typ J DPM Offset/Local/VAL
screen.edit 10 FREE L ABS.SCRN.EDIT dje
screen.edit.check 10 FREE L *(DRG)DRB[djc,drb]SE[dje]|0
Index Files Subscripts/Physical Base
alt.desc.grp.index [alt.desc.grp,version,code]
*(DRG)DRBX[drh,djc,drb]
att.x [version,attribute,code]
/DRBIX[djc,drbA,drb]
component.x [version,component,code]
*(DRG)DRBK[djc,drbk,drb]
confid.x [version,code]
*(DRG)DRBC[djc,drb]
name.index [version,name,code,alt.desc.grp]
*(DRG)DRBA[djc,drbN,drb,drh]
|
|
| | |